PROGRAM greater
IMPLICIT NONE
REAL :: x,y

WRITE (*,*), 'Enter x:'; READ *, x  !Reading the values from the user
WRITE (*,*), 'Enter y:'; READ *, y

IF (x>y) WRITE (*,*),x,'is greater than',y
IF (x==y) WRITE (*,*),x,'is equal to',y
IF (x<y) WRITE (*,*),y,'is greater than',x

END PROGRAM

